﻿Public Partial Class loguin
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Session.Abandon() 'Destruye todas las sesiones
        End If
    End Sub

    Protected Sub Login1_Authenticate(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.AuthenticateEventArgs) Handles Login1.Authenticate
        Dim modelo As New DataClasses1DataContext()
        Dim usuarios = From d In modelo.usuarios Where d.contrasena.Equals(Login1.Password) And d.usuario.Equals(Login1.UserName) Select d
        Dim usuario = usuarios.ToList()
        If usuarios.Count > 0 Then
            'Obtengo el profesion
            Dim profesiones = From p In modelo.profesiones Where p.profesionId.Equals(usuario(0).profesionId) Select p
            Dim profesion = profesiones.ToList()
            'Asigna a session todas las variables importantes
            Session("profesionId") = usuario(0).profesionId
            Session("tiempoTimer") = 120000
            Session("usuarioId") = usuario(0).usuarioId
            Session.Add("nombre", usuario(0).nombre)
            Session.Add("profesion", profesion(0).profesion)
            Select Case profesion(0).profesionId
                Case "1"
                    Response.Redirect("usuarios.aspx")
                Case "3"
                    Response.Redirect("encSocioEconomico.aspx")
                Case "4"
                    Response.Redirect("encMedicoGeriatra.aspx")
                Case "5"
                    Response.Redirect("encPsicoSocial.aspx")
                Case "6"
                    Response.Redirect("encOcupacional.aspx")
                Case "7"
                    Response.Redirect("encNutricion.aspx")
                Case "8"
                    Response.Redirect("encFisioterapia.aspx")
                Case Else

            End Select
        Else
            Login1.FailureText = "Usuario y/o Contraseña invalido"
        End If
    End Sub

End Class